00100	C  SHORT VERSION OF MANFRED'S TVIOF.F4
00150	C  THIS DISPLAYS OR PLOTS PROCESSED FILES ONLY.  12/73
00200
00300		COMMON /EDGEC/ A0,A1,A2,A3,A4,A5,A6,A7,
00400		1 DEBUG,T(0/1415),XP(0/176),YP(0/176),PARMAX,
00500		1 HALF,FILE,RR,COH,RX,RY,CL,SL,D,B,FOUND
00600
00700		COMMON /LISTC/ LIST(6,1000),LIST5(0/1000),NEWEND,LO
00800
00900		COMMON/COMMAC/BCLIP,TCLIP,BITS,IWID,LINLEN,FLINE,LLINE,
01000		1 LSIDE,RSIDE,DTA,HYSTAB(0/15)
01100
01500		INTEGER FLINE,RSIDE,HYSTAB,TIM1,TIM2,FILEN,FILE
02200	CC	LOGICAL FUNCTION ADMISS
02300	CC	ADMISS(DTA)=DTA.EQ.-7.OR.(1.LE.DTA.AND.DTA.LE.10)
02400		CALL TIMER(TIM1)
12800	83	FORMAT(A5)
17700	204	FORMAT(' TYPE THE FILE NAME'/)
19000	202	FORMAT(' NEWEND=',I4/)
26200	330	TYPE 204
26300		ACCEPT 83,FILE
26500		DO 335 I=1,6000
26600	335	LIST(I,1)=0.
26850		REWIND 1
26900		CALL IFILE(1,FILE)
27000		READ(1) FILEN,RR,FLINE,LLINE,LSIDE,RSIDE,NEWEND,
27100		1 ((LIST(I,N),I=1,6),N=1,NEWEND)
27200		TYPE 202,NEWEND
27900	252	CALL PLOU
29000	261	CALL TIMER(TIM2)
29100		TIM3=FLOAT(TIM2-TIM1)/60000.
29200	163	FORMAT(' THIS RUN CONSUMED ',F5.3,' MINUTES OF COMPUTING TIME'/)
29300		TYPE 163,TIM3
29400		END